use strict;
use warnings;

use CPAN;
use CPAN::Config;

#my $shell=Shell->new();

CPAN::Shell->o("conf", "defaults");
CPAN::Shell->o("conf", "prerequisites_policy", "follow"); 
CPAN::Shell->o("conf", "commit");

print "Going to install Catalyst now,
    This requires some user interaction.
    But it's not too complicated.
    Just accept the defaults answers to every question asked
    by just presing ENTER repeatedly.
    It can happen that you have to run this script more than once for the install to succeed.
    So if this script fails after one attempt, try running it again before attempting
    to debug it.
    Got that?
    Press ENTER to continue";
my $input = <STDIN>;

CPAN::Shell->install("Catalyst");

CPAN::Shell->o("conf", "defaults");
CPAN::Shell->o("conf", "prerequisites_policy", "ask"); 
CPAN::Shell->o("conf", "commit");





